(FILECREATED " 5-JUL-83 12:48:46" {PHYLUM}<GABRIEL>STAK.;1 887    

      changes to:  (VARS STAKCOMS)
		   (FNS TAK STAK))


(PRETTYCOMPRINT STAKCOMS)

(RPAQQ STAKCOMS ((FNS TAK STAK)
		 (SPECVARS X Y Z)))
(DEFINEQ

(TAK
  (LAMBDA (X Y Z)                                            (* JonL " 5-JUL-83 12:45")
    (STAK)))

(STAK
  (LAMBDA NIL                                                (* JonL " 5-JUL-83 12:45")
    (COND
      ((NOT (ILESSP Y X))
	Z)
      (T (PROG ((X (PROG ((X (SUB1 X))
			  (Y Y)
			  (Z Z))
		         (RETURN (STAK))))
		(Y (PROG ((X (SUB1 Y))
			  (Y Z)
			  (Z X))
		         (RETURN (STAK))))
		(Z (PROG ((X (SUB1 Z))
			  (Y X)
			  (Z Y))
		         (RETURN (STAK)))))
	       (RETURN (STAK)))))))
)
(DECLARE: DOEVAL@COMPILE DONTCOPY

(SPECVARS X Y Z)
)
(PUTPROPS STAK COPYRIGHT (NONE))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (215 778 (TAK 225 . 342) (STAK 344 . 776)))))
STOP